home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / wasm223.zip / CASE1.ASM < prev    next >
Assembly Source File  |  1993-05-04  |  1KB  |  46 lines
  1. ;**********************************;
  2. ; WASM Case Conversion, Character  ;
  3. ; By Eric Tauck                    ;
  4. ;                                  ;
  5. ; Defines:                         ;
  6. ;                                  ;
  7. ;   ChrLwr  character to lowercase ;
  8. ;   ChrUpr  character to uppercase ;
  9. ;**********************************;
  10.  
  11.         jmps    _case1_end
  12.  
  13. ;========================================
  14. ; Convert a character to lowercase.
  15. ;
  16. ; In: AL= character.
  17. ;
  18. ; Out: AL= converted character.
  19.  
  20. ChrLwr  PROC    NEAR
  21.         cmp     al, 'A'         ;check lower range
  22.         jb      _crlwr1
  23.         cmp     al, 'Z'         ;check upper range
  24.         ja      _crlwr1
  25.         add     al, 'a'-'A'     ;convert
  26. _crlwr1 ret
  27.         ENDP
  28.  
  29. ;========================================
  30. ; Convert a character to uppercase.
  31. ;
  32. ; In: AL= character.
  33. ;
  34. ; Out: AL= converted character.
  35.  
  36. ChrUpr  PROC    NEAR
  37.         cmp     al, 'a'         ;check lower range
  38.         jb      _crupr1
  39.         cmp     al, 'z'         ;check upper range
  40.         ja      _crupr1
  41.         sub     al, 'a'-'A'     ;convert
  42. _crupr1 ret
  43.         ENDP
  44.  
  45. _case1_end
  46.